;
; ------------------------------------------------------------
;
;   PureBasic - Printer example file
;
;    (c) 2003 - Fantaisie Software
;
; ------------------------------------------------------------
;

If PrintRequester()

  If StartPrinting("PureBasic Test")
  
    LoadFont(0, "Arial", 30)
    LoadFont(1, "Arial", 100)
  
    If StartDrawing(PrinterOutput())

      DrawingFont(FontID(0))
  
      DrawText(100, 100, "PureBasic Printer Test")
      
      DrawingFont(FontID(1))
      
      DrawText(100, 400, "PureBasic Printer Test 2")
    
      If LoadImage(0, "Data\PureBasic.bmp")
        DrawImage(ImageID(0), 200, 600)
      Else
        MessageRequester("Error","Can't load the image")
      EndIf
      
      FrontColor(RGB(100,100,100))
      Box(200, 600, 100, 100)
        
      StopDrawing()
    EndIf
    
    StopPrinting()
  EndIf
EndIf